home *** CD-ROM | disk | FTP | other *** search
/ Macworld Expo - Develope…Central & Net Innovations / Developer Central and Net Innovators (MacWorld Expo) (January 1999).iso / Developer Central / Bowers Development / Demo AppMaker / Examples / Pascal OS8 / Temperature / TemperatureMain.p < prev   
Encoding:
Text File  |  1998-10-30  |  434 b   |  31 lines  |  [TEXT/CWIE]
  1. { TemperatureMain.p -- Main }
  2. { Created 10/30/98 12:58 PM by AppMaker }
  3.  
  4. Program Temperature;
  5.  
  6. Uses
  7.     Types,
  8.     Quickdraw,
  9.     Controls,
  10.     Dialogs,
  11.     Events,
  12.     Lists,
  13.     Menus,
  14.     TextEdit,
  15.  
  16.     Globals,
  17.     EventLoop,
  18.     TemperatureApp;
  19.  
  20. {----------}
  21. Begin
  22.     gApplication := NewTemperatureApp;
  23.     Initialize;
  24.     if sysConfig.hasAppleEvents then begin
  25.         { wait for OApp, ODoc, or PDoc AppleEvent }
  26.     end else begin
  27.         gApplication.OpenApp;
  28.     end;
  29.     MainLoop;
  30. End.
  31.